Módulo 3: Apresentando suas análises
PROFESP, DEMSP, MS
Tutoriais pacotes: maps, ggplot, geobr1, geobr2, intorducao ao geobr
brasil_bruto <- import("covid_br_2022.csv")
estados <- read_sf(dsn = "shapefiles/.",
layer="UFBR")
# tratando os dados
brasil_acumulado_estado <- brasil_bruto %>%
filter(municipio!="")%>%
group_by(estado) %>%
summarise(Acumulado=sum(casosNovos, na.rm=T))
estados_trat <- estados %>%
rename(estado=SIGLA) %>%
st_zm() # as vezes precisa, nem sempre
covid_brasil_com_shape <- left_join(brasil_acumulado_estado, estados_trat) function geography
1 `read_country` Country
2 `read_region` Region
3 `read_state` States
4 `read_meso_region` Meso region
5 `read_micro_region` Micro region
6 `read_intermediate_region` Intermediate region
years
1 1872, 1900, 1911, 1920, 1933, 1940, 1950, 1960, 1970, 1980, 1991, 2000, 2001, 2010, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020
2 2000, 2001, 2010, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020
3 1872, 1900, 1911, 1920, 1933, 1940, 1950, 1960, 1970, 1980, 1991, 2000, 2001, 2010, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020
4 2000, 2001, 2010, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020
5 2000, 2001, 2010, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020
6 2017, 2019, 2020
source
1 IBGE
2 IBGE
3 IBGE
4 IBGE
5 IBGE
6 IBGE
regiao_geobr <- read_region() %>%
rename(regiao=`name_region`) %>%
mutate(regiao=if_else(regiao=="Centro Oeste", "Centro-Oeste", regiao))
Downloading: 770 B
Downloading: 770 B
Downloading: 45 kB
Downloading: 45 kB
Downloading: 53 kB
Downloading: 53 kB
Downloading: 69 kB
Downloading: 69 kB
Downloading: 77 kB
Downloading: 77 kB
Downloading: 77 kB
Downloading: 77 kB
Downloading: 85 kB
Downloading: 85 kB
Downloading: 94 kB
Downloading: 94 kB
Downloading: 100 kB
Downloading: 100 kB
Downloading: 100 kB
Downloading: 100 kB
Downloading: 110 kB
Downloading: 110 kB
Downloading: 110 kB
Downloading: 110 kB
Downloading: 120 kB
Downloading: 120 kB
Downloading: 130 kB
Downloading: 130 kB
Downloading: 130 kB
Downloading: 130 kB
Downloading: 140 kB
Downloading: 140 kB
Downloading: 140 kB
Downloading: 140 kB
Downloading: 150 kB
Downloading: 150 kB
Downloading: 150 kB
Downloading: 150 kB
Downloading: 150 kB
Downloading: 150 kB
Downloading: 150 kB
Downloading: 150 kB
Downloading: 150 kB
Downloading: 150 kB
Downloading: 170 kB
Downloading: 170 kB
Downloading: 180 kB
Downloading: 180 kB
Downloading: 180 kB
Downloading: 180 kB
Downloading: 260 kB
Downloading: 260 kB
Downloading: 300 kB
Downloading: 300 kB
Downloading: 330 kB
Downloading: 330 kB
Downloading: 380 kB
Downloading: 380 kB
Downloading: 390 kB
Downloading: 390 kB
Downloading: 430 kB
Downloading: 430 kB
Downloading: 430 kB
Downloading: 430 kB
Downloading: 450 kB
Downloading: 450 kB
Downloading: 450 kB
Downloading: 450 kB
Downloading: 460 kB
Downloading: 460 kB
Downloading: 460 kB
Downloading: 460 kB
Downloading: 470 kB
Downloading: 470 kB
Downloading: 470 kB
Downloading: 470 kB
Downloading: 470 kB
Downloading: 470 kB
Downloading: 470 kB
Downloading: 470 kB
Downloading: 480 kB
Downloading: 480 kB
Downloading: 490 kB
Downloading: 490 kB
Downloading: 490 kB
Downloading: 490 kB
Downloading: 490 kB
Downloading: 490 kB
Downloading: 500 kB
Downloading: 500 kB
Downloading: 510 kB
Downloading: 510 kB
Downloading: 510 kB
Downloading: 510 kB
Downloading: 510 kB
Downloading: 510 kB
Downloading: 510 kB
Downloading: 510 kB
Downloading: 520 kB
Downloading: 520 kB
Downloading: 520 kB
Downloading: 520 kB
Downloading: 530 kB
Downloading: 530 kB
Downloading: 540 kB
Downloading: 540 kB
Downloading: 550 kB
Downloading: 550 kB
Downloading: 560 kB
Downloading: 560 kB
Downloading: 570 kB
Downloading: 570 kB
Downloading: 570 kB
Downloading: 570 kB
Downloading: 580 kB
Downloading: 580 kB
Downloading: 580 kB
Downloading: 580 kB
Downloading: 590 kB
Downloading: 590 kB
Downloading: 630 kB
Downloading: 630 kB
Downloading: 630 kB
Downloading: 630 kB
Downloading: 640 kB
Downloading: 640 kB
Downloading: 640 kB
Downloading: 640 kB
Downloading: 650 kB
Downloading: 650 kB
Downloading: 670 kB
Downloading: 670 kB
Downloading: 680 kB
Downloading: 680 kB
Downloading: 680 kB
Downloading: 680 kB
Downloading: 680 kB
Downloading: 680 kB
Downloading: 680 kB
Downloading: 680 kB
Downloading: 700 kB
Downloading: 700 kB
Downloading: 700 kB
Downloading: 700 kB
Downloading: 710 kB
Downloading: 710 kB
Downloading: 720 kB
Downloading: 720 kB
Downloading: 720 kB
Downloading: 720 kB
Downloading: 720 kB
Downloading: 720 kB
Downloading: 720 kB
Downloading: 720 kB
Downloading: 720 kB
Downloading: 720 kB
Downloading: 750 kB
Downloading: 750 kB
Downloading: 760 kB
Downloading: 760 kB
Downloading: 770 kB
Downloading: 770 kB
Downloading: 770 kB
Downloading: 770 kB
Downloading: 780 kB
Downloading: 780 kB
Downloading: 780 kB
Downloading: 780 kB
Reading layer `map' from data source
`/Users/carolinamusso/Desktop/Sustento/cmusso86.github.io/R_tras_pra_Frente/Aula32_Mapas2/map.gpkg'
using driver `GPKG'
Simple feature collection with 10 features and 2 fields
Geometry type: MULTIPOLYGON
Dimension: XY
Bounding box: xmin: 4.944039 ymin: 873.8405 xmax: 20.01296 ymax: 896.602
Projected CRS: Undefined Cartesian SRS
st_crs(map) <- 4326
# Esse arquivo especificamente
map_transformed <- st_transform(map, crs = 4326)
(ggmap <- map_transformed %>%
ggplot()+
geom_sf(aes(geometry=geom, fill=hdi))+
scale_fill_distiller(direction=1)+
theme_map())